****************************************************************
*US Military Intervention and Presidential Communication Frames*
*                         Kerry Chavez                         *
****************************************************************

*load dataset
global c = "cold_war rightist audience onset num_motives"

/*Table 1. Predictors of Communication Frames Justifying Military Intervention*/
nbreg strat_frame strategic_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg human_frame humanitarian_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg terror_frame counterterror_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg econ_frame economic_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg terr_frame territorial_o $c, dispersion(mean) vce(cluster leader)
estat ic

/*Table A4. Poisson Assumption Metrics*/
sum strat_frame human_frame terror_frame econ_frame terr_frame pro_frame multi_frame excep_frame immin_frame, detail

/*Table A5. Predictors of Executive Frames Justifying Military Intervention - Binary IVs*/
nbreg strat_frame strategic $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg human_frame humanitarian $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg terror_frame counterterror $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg econ_frame economic $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg terr_frame territorial $c, dispersion(mean) vce(cluster leader)
estat ic

/*Table A6. Robustness Check Excluding Congressional Remarks*/
drop if audience == 1

nbreg strat_frame strategic_o cold_war rightist onset num_motives, dispersion(mean) vce(cluster leader)
estat ic
nbreg human_frame humanitarian_o cold_war rightist onset num_motives, dispersion(mean) vce(cluster leader)
estat ic
nbreg terror_frame counterterror_o cold_war rightist onset num_motives, dispersion(mean) vce(cluster leader)
estat ic
nbreg econ_frame economic_o cold_war rightist onset num_motives, dispersion(mean) vce(cluster leader)
estat ic
nbreg terr_frame territorial_o cold_war rightist onset num_motives, dispersion(mean) vce(cluster leader)
estat ic

clear all
*reload dataset
global c = "cold_war rightist audience onset num_motives"

/*Table A7. Exploratory Predictors of Proliferation Frames Justifying Military Intervention*/
nbreg pro_frame strategic_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg pro_frame humanitarian_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg pro_frame counterterror_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg pro_frame economic_o $c, dispersion(mean) vce(cluster leader)
estat ic
nbreg pro_frame territorial_o $c, dispersion(mean) vce(cluster leader)
estat ic

/*Table A8. Exploratory Predictors of Rhetorical Frames Justifying Military Intervention*/
nbreg multi_frame counterterror_o $c, dispersion(mean) vce(cluster leader)
nbreg excep_frame strategic_o $c, dispersion(mean) vce(cluster leader)
nbreg excep_frame humanitarian_o $c, dispersion(mean) vce(cluster leader)
nbreg excep_frame territorial_o $c, dispersion(mean) vce(cluster leader)
nbreg immin_frame strategic_o $c, dispersion(mean) vce(cluster leader)
nbreg immin_frame counterterror_o $c, dispersion(mean) vce(cluster leader)
